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1. ABSTRACT 

The JMP Y - Interrupt Te*t determines if the PDP-15 will complete a JMP Y 
(where Y is some random value) instruction before it goes into program interrupt. 
This is done by setting a I/O flag and then transferring control to an ION/JMP Y 
instruction group (located at a random place in memory). The computer 
should complete the JMP Y instruction before the computer goes into 
program interrupt. If no error occurs, the ION/JMP Y instruction group 
is moved to other random memory locations and the test is repeated. 

Errors are indicated to the operator via the Teletype or error halts. 

2. REQUIREMENTS 

2. 1 Equipment 

Standard PDP-15 computer. 

2.2 Storage 

The program uses all of 4K memory for the program or as a test area. The 
program occupies memory from location 07400 to 07746 and tests all 
locations below 07400. 

2.3 Preliminary Programs 
Basic Instruction Teats 

3. LOADING PROCEDURE 

a. Put HRI tape of program in reader (high speed if available). 

b. Set ADDRESS SWITCHES to 07400; the BANK MODE switch on a 1 . 

c. Depress and release READ-IN key. 

4. STARTING PROCEDURE 

4. 1 Control Switch Settings 


The following is a table of accumulator switch settings and their action 
on the program: 


ACSwitch Set As 


Action 


0 1 
0 

1 1 
0 


Halt on error 
Don’t halt on error 
Don't print errors 
Print errors 


1 


AC Switch 


Set As 


Action 


2 1 

0 

3 1 
0 

4 1 
0 


Ring bell on error 
Ring bell after N passes 
Loop on current Y 
Don't loop on current Y 
Loop on current location 
Don't loop on current location 


N is an arbitrary number (initially 100p) which is controlled by the LAW-N 
instruction in location 07400 and may De changed at the operator's discretion. 

4 . 2 Starting Address 

The starting address of the program is 07400. 

4.3 Program and/or Operator Action 

a. ADDRESS SWITCHES to 07400. 

b. Set ACCUMULATOR SWITCHES to desired positions (see 4.1). 

Normal setting is 500000. ) 

c. Depress I/O RESET 

d. Depress START 

5. OPERATING PROCEDURE 

5. 1 Operational Switch Settings (see 4.1) 

5.2 Subroutine Abstracts 
None 

5.3 Program and/or Opertor Action 

To put the program in the scope mode, the ACCUMULATOR SWITCH 
REGISTER should be set to 260000(don't halt, dorft print, bell after N 
passes, loop on current Y, loop on current locations) . 

6. ERRORS 

Unless AC switch 1 is a 1, errors will be printed on the teletype. 
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6.1 


Error Halts and Description 

There is one error halt inside the program at location 07546 .Any program 
diagnosed errors will cause a halt at this location if AC switch 0 is a 1. 
The" program stores HALT in all locations of the test area memory. If the 
computer does not go into program interrupt immediately after executing 
the JMP Y, the computer will halt at location Y. 

6.2 Error Recovery 

6.2.1 Program Diagnosed Error 

If AC switch 0 is a 1, the computer will halt on a program diagnosed 
error. To recover from this type of error, reset AC switches 0 to 4 
as necessary (see Section 4.1) and then depress CONTINUE. 

6.2.2 Interrupt Failures 

Interrupt failures will cause a halt at location Y. To recover, reset 
AC switches 0 to 4 as necessary (see Section 4. 1) and then start the 
computer at location 07400 (BEGIN) after depressing I/O RESET. 

6.2.3 Test for ION, JMP Y, and Y 


To test particular memory locations for the ION, JMP Y and/or Y, 
store the address of the ION in location 07733 (POINT1), that address + 1 
in location 07734 (POINT2), the address Y in location 07735 (POINT3). 
Then set AC switches 3 and 4 to 1, depress I/O RESET, and start the 
computer at location 07400 (BEGIN). All addresses must be less than 
07400 and not 00001 . 
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6.3 


Error Switch Hierarchy 



ION -JMP Y 

JMP AT "Y" C(0) 

001234 007654 001235 


The above example shows that a JMP 7654 instruction was stored in 
location 1234 (it is implied that the ION is in 1233). The 1235 
stored in location 00000 indicates the JMP was not completed before 
the computer went into program interrupt. 

7. RESTRICTIONS 

7. 1 Starting Restrictions 

(None) 
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7.2 Operating Restrictions 
(None) 

8. MISCELLANEOUS 

8.1 Execution Time 


Approximately 96 ms per ION/JMP Y instruction group. 

9. PROGRAM DESCRIPTION 

a. The first function that is performed is that of initialization. A 
register to count loops and a location to assure typeout of the error 
message header are initialized, and the bell on the Teletype is run 
to raise the teleprinter flag to assure a flag for program interrupt. 

b. Then a check is made to see if the locations of the ION and JMP Y 
instructions should be changed (switch 4). If they are not changed, 
the program proceeds to c. If they are, a number is obtained from 
a random number generator, made into an address, and checked 
that it is below the program, not equal to Y, not equal to 00000 

or 000001, and stored in POINT1 and incremented and stored in 
POINT2. 

c. Then a check is made to see if the number Y should be changed 
(switch 3). If it is not changed, the program proceeds to d. 

If it is, a number is obtained from a different random number 
generator than was used in b., made into an address, checked to 
see that it was below the program, not equal to location of ION 
or JMI* Y instructions, not equal to 00001, and stored in POINT3. 

d. Then HALT is stored in all memory locations in the test area of 
memory. The ION instruction is stored, as well as the JMP Y 
instruction after it has been formed from Y and JMP. The AC 

and Link are then cleared and control is transferred to the ION/JMP Y 
instruction group. 

e. Upon return from the program interrupt, the contents of location 00000 
are checked to make sure the proper number was stored. If not, the 
error subroutine is called. 

f. A check is then made to see if the scope mode (AC switches 3 and 4 
a 1) has been requested and if so, control is immediately transferred 
back to the instruction group. 

g. If the instruction group is not being scoped, a check is made on 
ringing the bell (switch 2), after which control goes back to b. 

10. LISTINGS 


5 



IONJMP 


PAGE 1 JMP-Y 

.TITLE IONJMP 

/ 

/JMP Y-IMTERRUPT test 





. FULL 


07400 



.LOC 

: 7400 


07400 

777700 

BEGIN 

LAW 

17700 


07401 

047717 


0 AC 

COUNT 

/SET UP TO COUNT LOOPS 

0740? 

760207 


LAW 

207 


07403 

107560 


JMS 

TYPE 

/RING BELL TO SET I/O FLAG 

07404 

207746 


LAC 

ZZZ + 1 


07405 

047525 


0 AC 

ERR0R1+13 

/initialize error typeout routine 

07406 

750004 

HERE1 

LAS 



07407 

507725 


AND 

MASK2 


07410 

740200 


SZ A 


/vary current location 

07411 

607437 


JMP 

HERE2 

/no 

07*12 

1076^0 


JMS 

random 

/yes, generate random address 

07413 

507723 


AND 

mask 


07414 

047733 


DAC 

POINT1 

/STORE IN "ION" POINTER 

07415 

047734 


DAC 

P0INT2 

/STORE IN "JMP Y" POINTER 

07416 

447734 


IS? 

P0INT2 

/AND INCREMENT 

07417 

741200 


SNA 


/IS "ION"=0? 

07420 

607412 


JMP 

HEREl+4 

/YES 

07421 

54773E 


sad 

ONE 

/HOW ABOUT 1? 

07422 

607412 


JMP 

HEREl+4 

/YES 

07423 

347743 


TAD 

UPLIM 

/IS THE "ION" POINTER 

07424 

740100 


SB A 


/INSIDE THIS PROGRAM? 

07425 

607412 


JMP 

HEREl+4 

/yes, generate another 

07426 

207734 


LAC 

P0INT2 

/no, now how about 

07427 

347743 


t.ad 

UPLIM 

/the "JMP Y" POINTER? 

07430 

740100 


SNA 


/is it ok? 

07431 

607412 


JMp 

HEREl+4 

/No* TRY AGAIN 

07432 

207735 


LAC 

P0INT3 

/OK SO EAR, NOW IS "Y" POINTER 

07433 

547733 


sad 

PO I NT 1 

/equal to "ION" pointer 

07434 

607412 


JMP 

HEREl+4 

/YES 

07435 

547734 


Sad 

PO I NT 2 

/NO. EQUAL TO "JMP Y" POINTER 

07436 

607412 


Jmp 

HEREl+4 

/YES 

07437 

750004 

HEBE2 

las 



07440 

507724 


and 

MASKl 


07441 

740200 


sza 


/VARY "Y" POINTER? 

07442 

607460 


JMP 

HERE 3 

/no 

07443 

1076 ? 1 


JMS 

ranqum 

/yes, generate Random address 

07444 

507723 


and 

mask 


07445 

047735 


DAC 

PO INT3 

/and store in poinT3 

07446 

547730 


SAD 

ONE 

/Is " Y " = 1 ? 

07447 

607443 


JMP 

HERE2+4 

/YES 

07450 

347743 


tad 

UPLIM 

/IS "Y" inside the program 

07451 

740100 


SM4 



07452 

607443 


JMP 

HERE2+4 

/YES 

07453 

207735 


LAC 

POINT 3 

/NO, CHECK IT AGAINST 

07454 

547733 


sad 

PO I NT 1 

/PO I NT 1 

07455 

607443 


JMP 

HERE2+4 

/AND 

07456 

547734 


SAD 

P0INT2 

/P0INT2 

07457 

607443 


JMP 

HERE2+4 





.EJECT 
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JMP-Y 

i onjmp 



07460 

1 07574 

HEPE3 

JMS HALT 

/STORE H aL ~ IN MEHORY 

07«6l 

2077?1 


LAC IONCON 

/then store The ion 

07462 

067733 


DAC* POlNTl 

/VfA THE "ION" POINTER 

07463 

207735 


LAC PO I NT 3 

/GET »Y" 

07464 

247722 


X OR JMPCON 

/FORM JMP " Y " 

07465 

067734 


D AC* POINT? 

/STORE VIA "JMP Y" POINTER 

07466 

754000 


CLA ! CLL 

/CLEAR AC AND L 

07^67 

627733 

/ 

JMP* POINT1 

/execute ion-jmp y 

07470 

207735 

/ 

RETURN 

LAC PO I NT 3 

/get "Y" 

07471 

200000 


LAC 0 


07472 

507723 


AND MASK 


07473 

547735 


SAD P0INT3 

/does C(0)="Y+1" 

07474 

741000 


SKP 

/YES 

07475 

107512 


JMS errori 

/NO. ERROR 

07476 

750004 


LAS 


07477 

742010 


RTL 


07500 

742010 


rtl 

/MOVE BITS 3+4 INTO LINK AND 

07501 

740400 


snl 

/LOOP ON CURRENT "Y"? 

07502 

607505 


JMP . ♦ 3 

/NO 

07 5 0 3 

755100 


SPa!CLa!CLL 

/YES, loop ON CURRENT LOCATION? 

07504 

627733 


JMP* POINT1 

/yes# return to ion-jmp y 

07505 

750004 


las 

/NO. SEE ABOUT RInGInG BELL 

07506 

742010 


RTL 


07507 

740100 


SMA 

/RING BELL? 

07510 

107550 


JMS BELL 

/YES 

07511 

607406 


JMP HERE1 





.eject 
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JMP-Y 


IONJMP 


/ERROR TYPEOUT SUBROUTINE 
/ 


07512 

000000 

ERRORl 0 



07513 

750004 

LAS 



07514 

742010 

rtl 



07515 

740100 

SMA 


/RING BELL? 

07516 

607521 

JMP 

. +3 

/NO 

07517 

760207 

LAW 

207 


07520 

107560 

JMS 

type 


07521 

750004 

LAS 



07522 

740010 

RAL 



07523 

741100 

SPA 


/PRINT ERRORS? 

07524 

607544 

JMP 

.+20 

/NO 

07525 

207745 

LAC 

222 


07526 

107652 

JMS 

mprint 

/PRINT HEADER 

07527 

207727 

LAC 

NEWINS 


07530 

047525 

DAC 

ERRORi+13 

/CHANGE SO THaT HEADER PRINTS ONLY 

07531 

207734 

L AC 

P0INT2 


07532 

107632 

JMS 

PRINT 

/PRINT LOCATION OF JMP Y 

07533 

760240 

LAW 

240 


07534 

107560 

JMS 

TYPE 

/I SPACE 

07535 

207735 

LAC 

POINT3 


07536 

107632 

JMS 

PRINT 

/PRINT "Y" 

07537 

760240 

L A w 

240 


07540 

107560 

JMS 

TYPE 

/I SPACE 

07541 

200000 

LA C 

0 


07542 

107632 

JMS 

PRINT 

/PRINT C ( 0 ) 

07543 

107566 

JMS 

CRLF 

/CR-LF 

07544 

750004 

LAS 



07545 

741100 

SPA 


/HALT ON ERROR? 

07546 

740040 

XX 


/YES 

07547 

627512 

JMP* 

ERRORl 

/EXIT 


.EJECT 


) 
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JMP-Y 


07550 000000 

07551 447717 

0755 ? 627550 

07553 407400 

07554 047717 

07555 760207 

07556 107560 

07557 627550 

07560 000000 

07561 507736 

0756? 700406 

07563 700401 

07564 607563 

07565 627560 

07566 000000 

07567 760215 

07570 107560 

07571 760212 

07572 107560 

07573 627566 


i onjmp 


/USEFUL SUBROUTINES 

/ 

BELL 0 

IS? COUNT 
JMP* BELL 
XCT BEGIN 
DAC COUNT 
LAW 207 
JMS TYPE 
JMP* BELL 

/ 

TYPE 0 

AND RUBOUT 

TLS 

TSF 

JMP .-1 
JMP* TYPE 

/ 

CRLF 0 

LAW 215 
JMS TYPE 
LAW 212 
JMS TYPE 
JMP* CRLF 
.EJECT 
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JMP-Y 


IONJHP 


/subroutine to store halts in memory 


07574 

000000 

/ 

HALT 

0 

07575 

147731 


DEM PNTR 

07576 

207720 


LAC HLTCON 

07577 

067731 


DAC* PNTR 

07600 

447731 


1SZ PNTR 

07601 

207731 


LAC PNTR 

07602 

547744 


SAD UPLIM1 

07603 

741000 


SKP 

07604 

607576 


JMP HALT+2 

07605 

207716 


LAC CONI 

07606 

040001 


DAC 1 

07607 

627574 

/ 

JMP* HALT 



/ 

/Random 

/ 

RANDOM 

number generators 

07610 

000000 

0 

07611 

207617 


LAC RANDl 

07612 

744010 


RAL ! CLL 

07613 

741400 


S2L 

07614 

347620 


TAO RAND1+1 

07615 

047617 


DAC RANDl 

07616 

627610 

/ 

RAND1 

JMP* RANDOM 

07617 

000137 

137 

07620 

000003 

/ 

3 

07621 

000000 

RANDUM 

0 

07622 

207630 


LAC RAN02 

07623 

744010 


ralicll 

07624 

741400 


SZL 

07625 

347631 


TAD RAND2+1 

07626 

047630 


DAC RAND2 

07627 

627621 


JMP* RANDUM 


/ 

RAN02 65 
3 

•EJECT 


07630 000065 

07631 000003 
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6 JMP-Y IONJMP 

/octal print subroutine 


07632 

000000 

PR ! NT 

0 


07633 

047741 


0 AC 

TEMP 

07634 

777772 


LAW 

1777? 

07635 

047740 


DAC 

tally 

07636 

207741 


LAC 

temp 

07637 

744010 


RAL 

: cll 

07640 

740010 


RAL 


07641 

742010 


rtl 


07642 

047741 


DAC 

TEMP 

07643 

507737 


ANO 

SEVEN 

07644 

347715 


tad 

ASK I I 

07645 

107560 


JMS 

TYPE 

07646 

207741 


LAC 

TEMP 

07647 

447740 


ISZ 

tally 

07650 

607640 


JMP 

.-10 

07651 

627632 

/ 

JMP 

* PRINT 


/MESSAGE PRINT SUBROUTINE 


/ 


07652 

000000 

MPRINT 

0 


07653 

047732 


DAC PNTRi 


07654 

227732 


LAC* PNTRi 


07655 

742020 


rtr; rtr; 

rtr; 

07656 

742020 




07657 

742020 




07660 

742020 


RTR ; RAR 


07661 

740020 




07662 

107?60 


JMS TYPE 


07663 

547736 


SAD RU80UT 


07664 

627652 


JMP* MPRINT 


07665 

227732 


LAC* PNTRi 


07666 

107560 


JMS TYPE 


07667 

547736 


SAD RUBOUT 


07670 

627652 


JMP* MPRINT 


07671 

447732 


ISZ PNTRI 


07672 

607654 


JMP MPRINT+2 




/ 

/ERROR 

message header 


07673 

215212 

MESS1 

215212 

/CR.LE 

07674 

311317 


311317 

/I ,0 

07675 

316255 


316255 

/N > - 

07676 

312315 


312315 

/ J . M 

07677 

320240 


320240 

/P.SP 

07700 

331215 


331215 

/ Y , CR 

07701 

212312 


212312 

/LF , J 

0770? 

315320 


315320 

/M , P 

07703 

240301 


240301 

/SP, A 

07704 

324240 


324240 

/T > SP 

07705 

240240 


240240 

/SP* SP 

07706 

2 42331 


242331 

/" . Y 

07707 

242240 


242240 

/ M *SP 

$7710 

240240 


240240 

/SP.SP 

■ 711 

303250 


3032* 

/c, ( 
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JMP-Y 


IONJMP 


260251 

215212 

377000 

.EJECT 


07712 260251 

07713 215212 

07714 377000 


/ 0 » ) 

/CR,|_F 

/END 
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JMP-Y 


l ONJMP 


/constants and variables 


/ 


07715 

000260 

ASK ! I 

?60 

07716 

607470 

CONI 

JHP re t urn 

07717 

000000 

count 

0 

07720 

740040 

HLTCoN 

ML T 

07721 

700042 

I ONCON 

I ON 

07722 

600000 

JMPCON 

JMP 

07723 

017777 

MASK 

17777 

07724 

040000 

MASKl 

40000 

07725 

020000 

MASK2 

20000 

07726 

010000 

MASK3 

10000 

07727 

607531 

NEWINS 

JMP ERRORl+17 

07730 

000001 

ONE 

1 

07731 

000000 

PNTR 

0 

07732 

000000 

PNTR1 

0 

07733 

000002 

POINTi 

2 

07734 

000003 

POINT2 

3 

07735 

000004 

P0INT3 

4 

07736 

000377 

RUBOUT 

377 

07737 

000007 

SEVEN 

”7 

f 

07740 

000000 

TALLY 

0 

07741 

000000 

temp 

0 

07742 

000002 

TWO 

2 

07743 

770400 

uplim 

-BEGIN 

07744 

007400 

UPLIMl 

BEGIN 

07745 

007673 

222 

MESSl 

07746 

207745 

/ 

LAC 222 


000000 

/ 

.END 


S I ££=07747 NO ERROR LINES 




jmp-y 


I0NJMP 
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ASK I I 

07715 

regin 

07400 

RELL 

07550 

CLOF 

700004 

CLON 

700044 

CLSF 

700001 

CONI 

07716 

COUNT 

07717 

CRLF 

07566 

EEM 

707702 

ERRORl 

07512 

HALT 

07574 

HERE1 

07406 

HERE? 

07437 

HERE3 

07460 

HLTCON 

07720 

IONCON 

07721 

JMPCON 

07722 

KRR 

700312 

KSF 

700301 

LEM 

707704 

MASK 

07723 

MASK1 

07724 

MASK2 

07725 

MASK3 

07726 

MESS1 

07673 

MPR I NT 

07652 

NEWINS 

07727 

ONE 

07730 

PCF 

700202 

PNTR 

07731 

PNTR1 

r?732 

POINTl 

07733 

POINT2 

07734 

PO I NT 3 

07735 

PRINT 

07632 

PSA 

700204 

PSB 

700244 

PSF 

700201 

random 

07610 

randum 

07621 

randi 

07617 

RAN02 

07630 

RCF 

700102 

return 

07470 

RRB 

700112 

RS A 

700104 

RSB 

700144 

RSF 

700101 

RUBOUT 

07736 

SEVEN 

07737 

TALLY 

07740 

TCF 

700402 

TEMP 

07741 

TLS 

700406 
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JMP-Y 


IONJMP 


TSr 

700401 

TWO 

0774 2 

TYPE 

07560 

UPl I M 

07743 

UPLIMi 

07744 

111 

07745 

.EOT 

00000 



JMP-Y 


IONJMP 


PAGE 11 

.EOT 00000 
BEGIN 07400 
HERE 1 07406 
HERE2 07437 
HERE3 07460 
RETURN 07470 
ERROR1 07512 
BELL 07550 
TYPE 07560 
CRLF 07566 
HALT 07574 
RANDOM 07610 
RAND1 07617 
RANDUM 07621 
RAND2 07630 
PRINT 07632 
MPRINT 07652 
MESSl 07673 
ASKII 07715 
CONI 07716 
COUNT 07717 
HLTCON 07720 
IONCON 07721 
JMPCON 07722 
MASK 07723 
MASK1 07724 
MASK2 07725 
MASK3 07726 
NEWINS 07727 
ONE 07730 
PNTR 07731 
PNTR1 07732 
POINTl 07733 
P0INT2 07734 
POINTS 07735 
RUBOUT 07736 
SEVEN 07737 
TALLY 07740 
TEMP 07741 
TWO 07742 
UPLIM 07743 
UPLIMi 07744 
2Z2 07745 
CLSF 700001 
CLOF 700004 
CLON 700044 
RSF 700101 
RCF 700102 
RSA 700104 
RPB 700112 
RSR 700144 
PSF 700201 
PCF 700202 
PSA 700204 
PSB 700244 
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KSF 700301 
KRP 700312 
TSF 700401 
TCF 700402 
TLS 700406 
EEM 707702 
LEM 707704 



